1000 IFF1=0THENF1=1:LOAD"PI.CHARS   .Z",8,1
1010 IFF1=1THENF1=2:LOAD"PI.CODE    .C",8,1
1498 :
1499 :
1500 REM   ***    INIT    ***
1501 :
1502 :
1510 POKE55,255:POKE56,115:CLR
1520 POKE56576,150:POKE53248+24,223:POKE648,116
1530 POKE788,52
1540 BA=12*4096:Z=0:Z$=" 1":POKE53280,0:POKE53281,6:PRINT"[147][158]"+CHR$(8)
1998 :
1999 :
2000 REM   *** HAUPTPROGRAMM  ***
2001 :
2002 :
2010 Z=0:POKE830,Z:Z$=" 1"
2020 PRINT"[147][144] [209][209][209][209]  [209]       [209]   [209]   [209]      [209] [209][209][209][209][209] [209]
2030 [153]" (null)   (null) (null)      (null) (null)  (null)   (null)      (null)   (null)   (null)
2040 PRINT" [209]   [209] [209]     [209]   [209]  [209] [209]       [209]   [209]   [209]
2050 [153]" (null)(null)(null)(null)  (null)     (null)(null)(null)(null)(null)   (null)        (null)   (null)   (null)
2060 PRINT" [209]     [209]     [209]   [209]   [209]        [209]   [209]   [209]
2070 [153]" (null)     (null)     (null)   (null)   (null)        (null)   (null)
2080 PRINT" [209]     [209][209][209][209][209] [209]   [209]   [209]        [209]   [209]   [209]
2090 [158]BA[170]21,9,9:[153]"IDEE BY THOMAS KNIEP"
2100 [158]BA[170]21,6,12:[153]"PROGRAMMED AND DESIGNED BY"
2110 [158]BA[170]21,12,14:[153]"THOMAS HAUKAPSYS"
2120 [158]BA[170]21,8,17:[153]"1 - CARDS EDITOR"
2130 [158]BA[170]21,8,18:[153]"2 - PLAYFIELD EDITOR"
2140 [158]BA[170]21,8,19:[153]"3 - CHARAKTERSET EDITOR"
2150 [158]BA[170]21,3,21:[153]"ENTER CHOISE: "
2155 [158]BA[170]21,20,24:[153]"STOP^WAIT 1986 BY T. HAUKAPSYS";
2160 [158]BA[170]24,1,17,21,"",H$,"123":[139]H$[178]""[167]2160
2170 [145][197](H$)[141]5000,10000,15000
2200 [137]2010
4998 :
4999 :
5000 [143]   ***  KARTENEDITOR  ***
5001 :
5002 :
5010 [139]FK[178]0[167][141]5500
5015 N[178]0
5020 [153]"SYSEDIT:   NUMBER ";N[170]1;"     ZEICHENSATZ:"Z$"    "
5030 [158]BA[170]27,N
5040 [153]"COMMAND:  C,D,G,K,L,N,P,S,X,Z          "
5050 [161]F$:[139]F$[178]""[167]5050
5055 [139]F$[178]"C"[167][141]5300
5058 [139]F$[178]"D"[167][141]20000
5060 [139]F$[178]"G"[167][141]5700
5070 [139]F$[178]"K"[167][158]BA[170]30,N
5080 [139]F$[178]"L"[167][141]5800
5090 [139]F$[178]"N"[167][141]5500
5100 [139]F$[178]"P"[167][141]5120
5110 [139]F$[178]"S"[167][141]5900
5111 [139]F$[178]"X"[167][142]
5112 [139]F$[178]"Z"[167][141]10400
5113 [139]F$[178]""[175]N[179]MN[167]N[178]N[170]1
5114 [139]F$[178]""[175]N[177]0[167]N[178]N[171]1
5115 [137]5020
5120 [153]"PRINT:   1-EQUAL    2-NOT EQUAL:      "
5130 [158]BA[170]24,1,33,0,"",W$,"12":[139]W$[178]""[167][142]
5140 [139]W$[178]"1"[167]5200
5150 [153]"PRINT:    FIRST:      LAST:           "
5160 [158]BA[170]24,2,17,0,"",A$,"1234567890":[139]A$[178]""[167][142]
5165 A[178][197](A$):[139]A[179]1[176]A[177]MN[167]5160
5170 [158]BA[170]24,2,28,0,"",A$,"1234567890":[139]A$[178]""[167][142]
5175 B[178][197](A$):[139]B[179]A[176]B[177]MN[167]5170
5180 [137]5250
5200 [153]"PRINT:  CARD NR:      NUMBER:        "
5210 [158]BA[170]24,2,17,0,"",A$,"1234567890":[139]A$[178]""[167][142]
5215 A[178][197](A$):[139]A[179]1[176]A[177]MN[167]5210
5220 [158]BA[170]24,2,30,0,"",A$,"1234567890":[139]A$[178]""[167][142]
5225 B[178][197](A$):[139]B[179]1[176]B[177]100[167]5220
5230 B[178]B[170]129
5250 [153]"PRINT:   O.K.:                       "
5260 [158]BA[170]24,1,15,0,"Y",W$,"YN":[139]W$[178]"Y"[167][158]BA[170]39,A[171]1,B[171]1
5270 [142]
5300 [153]"COPY:   SOURCE:      TARGET:          "
5310 [158]BA[170]24,2,16,0,"",A$,"1234567890":[139]A$[178]""[167][142]
5315 A[178][197](A$):[139]A[179]1[176]A[177]MN[170]1[167]5310
5320 [158]BA[170]24,2,29,0,"",A$,"1234567890":[139]A$[178]""[167][142]
5325 B[178][197](A$):[139]B[179]1[176]B[177]MN[170]1[167]5320
5330 [158]BA[170]42,A[171]1,B[171]1
5340 [142]
5500 [153]"LOADLOAD NEW CARDS:"
5501 [158]BA[170]24,1,16,3,"",A$,"NY":[139]A$[178]""[175]FK[178]1[167][142]
5502 FK[178]1
5503 [139]A$[178]"Y"[167][141]5800:[145][182](A[177]1)[170]1[137]5890,5500
5504 [153]"LOAD ENTER NEW WIDTH OF ROWS AND COLUMNS"
5505 [158]BA[170]21,1,10:[153]"COLUMNS     (10-37):"
5510 [158]BA[170]21,1,12:[153]"ROWS        (5-24) :"
5520 [158]BA[170]21,1,15:[153]"MAXIMUM OF CARDS   :"
5530 [158]BA[170]21,1,20:[153]"O.K.:"
5540 [158]BA[170]24,2,22,10,"",A$,"1234567890"
5545 XK[178][197](A$):[139]XK[179]10[176]XK[177]37[167]5540
5550 [158]BA[170]24,2,22,12,"",A$,"1234567890"
5560 YK[178][197](A$):[139]YK[179]5[176]YK[177]24[167]5550
5570 MN[178][181](16384[173]XK[173]YK)[171]1:[139]MN[177]100[167]MN[178]99
5580 [158]BA[170]21,22,15:[153]MN:MN[178]MN[171]1
5590 [158]BA[170]24,1,7,20,"Y",W$,"YN":[139]W$[179][177]"Y"[167]5500
5600 N[178]0:[151]831,XK[171]1:[151]832,YK[171]1:[151]833,MN
5610 [129]I[178]0[164]MN:[158]BA[170]30,I:[130]:[142]
5700 [153]"GOTO:   CARD NR:                     "
5720 [158]BA[170]24,2,17,0,"",A$,"1234567890":A[178][197](A$):[139]A[179]1[176]A[177]MN[170]1[167]5720
5730 N[178]A[171]1:[142]
5740 [159]1,8,15:[141]5750:[160]1:[142]
5750 [132]1,A,A$,B,C:[139]A[178]0[167][142]
5760 [160]2:[160]1
5770 [153]"DISK RESULT:                          "
5780 [153]"";A;A$;B;C
5790 [151]198,0:[146]198,255:[151]198,0:[142]
5800 [143] KARTENLOAD
5810 [141]10500
5820 [159]1,8,15:[159]2,8,2,N$[170]".H,U,R"
5830 [141]5750:[139]A[177]1[167]5890
5840 [161]#2,X$:XK[178][198](X$[170][199](0))
5850 [161]#2,Y$:YK[178][198](Y$[170][199](0))
5855 [161]#2,M$:MN[178][198](M$[170][199](0))
5857 [160]2:[160]1
5860 [151]831,XK[171]1:[151]832,YK[171]1:[151]833,MN
5870 [141]5610
5880 [158]BA[170]36,N$[170]".K",8
5890 [142]
5900 [143] KARTENSAVE
5910 [141]10500
5920 [159]1,8,15:[159]2,8,2,N$[170]".H,U,W"
5930 [141]5750:[139]A[177]1[167]5890
5940 [152]2,[199](XK)[199](YK)[199](MN);
5950 [160]2:[160]1
5960 [158]BA[170]33,N$[170]".K",8
5970 [137]5890
9998 :
9999 :
10000 [143]  ***  SPIELPLANEDITOR  ***
10001 :
10002 :
10005 [139]FP[178]0[167]FP[178]1:[158]BA[170]3
10010 [153]"SYSEDIT:                 ZEICHENSATZ:"Z$"    "
10020 [158]BA
10030 [153]"SYSCOMMAND:   C,D,G,K,L,P,R,S,X,Z        "
10040 [161]F$:[139]F$[178]""[167]10040
10050 [139]F$[178]"C"[167][158]BA[170]9
10055 [139]F$[178]"D"[167][141]20000
10060 [139]F$[178]"G"[167][141]10300
10070 [139]F$[178]"K"[167][158]BA[170]3
10080 [139]F$[178]"L"[167][141]10500:[158]BA[170]15,N$[170]".P",8,1:[141]5740
10090 [139]F$[178]"P"[167][141]10200
10100 [139]F$[178]"R"[167][158]BA[170]6
10110 [139]F$[178]"S"[167][141]10500:[158]BA[170]12,N$[170]".P",8:[141]5740
10120 [139]F$[178]"X"[167][142]
10130 [139]F$[178]"Z"[167][141]10400
10140 [137]10010
10200 [153]"PRINT:     LARGE OR SMALL:            "
10210 [158]BA[170]24,1,27,0,"",A$,"LS"
10220 [139]A$[178]""[167][142]
10230 [139]A$[178]"L"[167][158]BA[170]18,0
10240 [139]A$[178]"S"[167][158]BA[170]18,128
10250 [142]
10300 [153]"ENTER X-KOORDINATE:    Y-KOORDINATE:   "
10330 [158]BA[170]24,2,20,0,"",X$,"1234567890":X[178][197](X$):[139]X$[178]""[167][142]
10340 [158]BA[170]24,2,37,0,"",Y$,"1234567890":Y[178][197](Y$):[139]Y$[178]""[167][142]
10350 [151]828,X:[151]829,Y:[142]
10400 Z[178]128[171]Z:Z$[178][196]([182]((Z[178]128))[170]1):[151]830,Z:[142]
10500 [153]"ENTER NAME:                           "
10510 [158]BA[170]24,8,12,0,"",N$,"ABCDEFGHIJKLMNOPQRSTUVWXYZ 1234567890-.[\]@"
10520 N$[178][200]("@:PI."[170]N$[170]"        ",13)
10530 [142]
14998 :
14999 :
15000 [143]  ***  ZEICHENSATZEDITR  ***
15001 :
15002 :
15010 [153]"EDIT:       CHARAKTERCODE:";NC;"CMD       "
15020 [158]BA[170]45,NC
15030 [153]"COMMAND:  C,D,G,K,L,S,X               "
15040 [161]F$:[139]F$[178]""[167]15040
15042 [139]F$[178]""[175]NC[177]0[167]NC[178]NC[171]1
15044 [139]F$[178]""[175]NC[179]255[167]NC[178]NC[170]1
15046 [139]F$[178]"C"[167][141]15300
15048 [139]F$[178]"D"[167][141]20000
15050 [139]F$[178]"G"[167][141]15100
15055 [139]F$[178]"K"[167][158]BA[170]54,NC
15060 [139]F$[178]"L"[167][141]10500:[158]BA[170]51,N$[170]".Z",8:[141]5740
15070 [139]F$[178]"S"[167][141]10500:[158]BA[170]48,N$[170]".Z",8:[141]5740
15080 [139]F$[178]"X"[167][142]
15090 [137]15010
15100 [153]"GOTO CHARAKTER:   NUMBER:             "
15110 [158]BA[170]24,3,28,0,"",A$,"1234567890":A[178][197](A$):[139]A[179]0[176]A[177]255[167]15100
15120 NC[178]A:[142]
15300 [153]"COPY:   SOURCE:      TARGET:          "
15310 [158]BA[170]24,3,16,0,"",A$,"1234567890":A[178][197](A$):[139]A[179]0[176]A[177]255[167]2310
15320 [158]BA[170]24,3,29,0,"",A$,"1234567890":B[178][197](A$):[139]B[179]0[176]B[177]255[167]2310
15330 [158]BA[170]57,B,A
15340 [142]
19998 :
19999 :
20000 [143]  ***  DISKETTENVERWALTUNG  ***
20001 :
20002 :
20010 [153]"DISK:     1-DIRECTORY   2-COMMAND:    "
20020 [158]BA[170]24,1,35,0,"",F$:[139]F$[178]""[167][142]
20030 [145][197](F$)[141]20100,20200
20040 [142]
20100 [143] DIRECTORY-ANZEIGEN
20105 [153]"LOAD"
20110 [159]1,8,0,"$":[161]#1,A$,A$
20120 [161]#1,A$,B$:[139]ST[178]64[167][160]1:[137]20160
20130 [161]#1,A$,B$:[153][198](A$[170][199](0))[170]256[172][198](B$[170][199](0));
20140 [161]#1,A$:[153]A$;:[139]A$[179][177]""[167]20140
20150 [153]:[137]20120
20160 [151]198,0:[146]198,255:[151]198,0:[142]
20200 [143] DISK-COMMAND SENDEN
20210 [153]"ENTER COMMAND:                        "
20220 [158]BA[170]24,23,15,0,"",A$,"ABCDEFGHIJKLMNOPQRSTUVWXYZ 1234567890:*[]\@-."
20230 [139]A$[178]""[167][142]
20240 [159]1,8,15,A$:[141]5750:[160]1:[142]